home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 2 (Sweden) / BackPacker 2 (Sweden) (Disc 1).7z / BackPacker 2 (Sweden) (Disc 1).bin / pc / instdata / instin04 / 00005.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  1005 b   |  40 lines
  1. on exitFrame
  2.   global gTimeKoll
  3.   if rollOver(14) then
  4.     cursor([25, 27])
  5.   else
  6.     cursor(-1)
  7.   end if
  8.   if gTimeKoll < the ticks then
  9.     set the text of field "hurry" to " "
  10.   end if
  11.   if (the timer > (8 * 60)) and (the mouseDown = 0) then
  12.     if inside(point(the mouseH, the mouseV), rect(268, 66, 388, 237)) = 0 then
  13.       set slump to random(3)
  14.       case slump of
  15.         1:
  16.           set the text of field "hurry" to QUOTE & "Hey! There are people waiting out here!" & QUOTE
  17.           doorBang()
  18.           set gTimeKoll to the ticks + (2 * 60)
  19.         2:
  20.           set the text of field "hurry" to QUOTE & "Hurry up in there!" & QUOTE
  21.           knobTwist()
  22.           set gTimeKoll to the ticks + (2 * 60)
  23.         otherwise:
  24.           nothing()
  25.       end case
  26.       startTimer()
  27.     end if
  28.   end if
  29.   go(the frame)
  30. end
  31.  
  32. on idle
  33.   global gChatTime
  34.   readOpponents()
  35.   if the ticks > gChatTime then
  36.     set the text of field "oppChat" to " "
  37.     set gChatTime to the ticks + (8 * 60)
  38.   end if
  39. end
  40.